home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / DOCZ16.ZIP;1 / DOCZ.LIF / DOCHELP.M < prev    next >
Encoding:
Text File  |  1994-04-24  |  654 b   |  33 lines
  1. ;    DOCHELP.M
  2. ;    8/29/89
  3. ;    BRIEF macro
  4. ;
  5. ;    this macro calls the DOCHELP utility with the required parameters to 
  6. ;    extract function documentation from the DOCZ help library.
  7.  
  8. (macro dochelp
  9.     (
  10.         (string funcname cmdline)
  11.         (int ret_code)
  12.         (get_parm 0 funcname "Enter the function name:" 31)
  13.         (message "DOCZ: %s" funcname)
  14.         (sprintf cmdline "dochelp %s /arg >&dochelp.zzz" funcname)
  15.         (= ret_code (dos cmdline))
  16.         (if (!= ret_code 0)
  17.             (
  18.                 (message "Cannot call DOCHELP!")
  19.                 (beep)
  20.             )
  21.         ;else
  22.             (
  23.                 (beginning_of_line)
  24.                 (read_file "dochelp.zzz")
  25.                 (del "dochelp.zzz")      
  26.                 (message "")
  27.             )
  28.         )
  29.     )
  30. )    
  31.  
  32.  
  33.